home *** CD-ROM | disk | FTP | other *** search
/ 500 MB Nyheder Direkte fra Internet 9 / 500 MB nyheder direkte fra internet CD 9.iso / start / zipped / win / visbasic / playwavz.exe / PLAYWAV.BAS < prev    next >
BASIC Source File  |  1995-12-02  |  328b  |  13 lines
  1. Option Explicit
  2.  
  3. 'SndPlaySound is the API call to (obviously) play the WAV file passed to it
  4. Declare Function sndPlaySound Lib "mmsystem" (ByVal FileName$, ByVal SND_ASYNC%) As Integer
  5.  
  6. Global Const SND_SYNC = &H0
  7. Global Const SND_ASYNC = &H1
  8.  
  9. 'Common Dialog Control
  10. 'Action Property
  11. Global Const DLG_FILE_OPEN = 1
  12.  
  13.